let $choice := doc("survey.xml")/SURVEY/QUESTION[@questionID="college"]/MCQUESTION/CHOICE
let $answer := doc("responses.xml")/CLASS/STUDENT/RESPONSES/MCRESPONSE[@qID="college"]/ANSWER
for $col in $choice
where count($answer[.=$col]) = max({for $col2 in $choice
									return count($answer[.=$col2])
								  })
return string($col)
